/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / basic / newcommandset_v1.80 / examples / window 1.bb2

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3b 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.; *****|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 00 3b 20 20 |********|****.;  |
|00000040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000050| 20 4e 65 77 20 57 69 6e | 64 6f 77 20 4c 69 62 72 | New Win|dow Libr|
|00000060| 61 72 79 00 3b 20 20 20 | 20 43 6f 64 65 64 20 62 |ary.;   | Coded b|
|00000070| 79 20 41 6c 70 68 61 53 | 4f 55 4e 44 20 2d 20 28 |y AlphaS|OUND - (|
|00000080| 63 29 20 31 39 39 39 20 | 46 61 6e 74 61 69 73 69 |c) 1999 |Fantaisi|
|00000090| 65 20 73 6f 66 74 77 61 | 72 65 00 3b 20 2a 2a 2a |e softwa|re.; ***|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000d0| 2a 2a 2a 2a 2a 2a 00 00 | 3b 20 2a 2a 2a 2a 2a 2a |******..|; ******|
|000000e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000110| 2a 2a 2a 00 3b 20 20 20 | 20 20 20 20 20 20 20 20 |***.;   |        |
|00000120| 20 20 20 20 20 20 20 20 | 20 20 45 78 61 6d 70 6c |        |  Exampl|
|00000130| 65 20 31 00 3b 20 20 20 | 20 4f 70 65 6e 20 61 6e |e 1.;   | Open an|
|00000140| 20 73 74 61 6e 64 61 72 | 64 20 77 69 6e 64 6f 77 | standar|d window|
|00000150| 20 61 6e 64 20 64 6f 20 | 73 6f 6d 65 20 73 74 75 | and do |some stu|
|00000160| 66 66 73 20 6f 6e 20 69 | 74 2e 00 3b 20 2a 2a 2a |ffs on i|t..; ***|
|00000170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001a0| 2a 2a 2a 2a 2a 2a 00 3b | 00 3b 20 31 37 2f 30 34 |******.;|.; 17/04|
|000001b0| 2f 31 39 39 39 00 3b 20 | 20 20 52 65 6d 6f 76 65 |/1999.; |  Remove|
|000001c0| 20 74 68 65 20 27 4e 50 | 72 69 6e 74 27 20 63 6f | the 'NP|rint' co|
|000001d0| 6d 6d 61 6e 64 20 61 6e | 64 20 74 68 65 20 64 65 |mmand an|d the de|
|000001e0| 62 75 67 67 65 72 20 74 | 6f 20 68 61 76 65 00 3b |bugger t|o have.;|
|000001f0| 20 20 20 61 20 76 65 72 | 79 20 73 6d 61 6c 6c 20 |   a ver|y small |
|00000200| 65 78 65 63 2e 20 52 65 | 70 6c 61 63 65 20 57 62 |exec. Re|place Wb|
|00000210| 53 74 61 72 74 75 70 20 | 62 79 20 4e 57 62 53 74 |Startup |by NWbSt|
|00000220| 61 72 74 75 70 20 74 6f | 20 67 61 69 6e 00 3b 20 |artup to| gain.; |
|00000230| 20 20 31 20 6b 62 20 74 | 6f 6f 2e 00 3b 00 00 80 |  1 kb t|oo..;...|
|00000240| c3 00 00 d4 15 20 30 00 | 54 61 67 4c 69 73 74 2e |..... 0.|TagList.|
|00000250| 6c 20 3d 20 ca 81 28 32 | 29 00 00 3b 20 46 69 6c |l = ..(2|)..; Fil|
|00000260| 6c 20 75 70 20 6f 75 72 | 20 74 61 67 6c 69 73 74 |l up our| taglist|
|00000270| 2e 00 3b 20 21 21 21 20 | 57 41 52 49 4e 49 4e 47 |..; !!! |WARINING|
|00000280| 20 21 21 21 20 59 6f 75 | 20 4d 55 53 54 20 75 73 | !!! You| MUST us|
|00000290| 65 20 61 6e 20 74 69 74 | 6c 65 20 76 61 72 69 61 |e an tit|le varia|
|000002a0| 62 6c 65 20 66 6f 72 20 | 45 41 43 48 20 77 69 6e |ble for |EACH win|
|000002b0| 64 6f 77 00 00 54 69 74 | 6c 65 2e 73 20 3d 20 22 |dow..Tit|le.s = "|
|000002c0| 44 65 6d 6f 20 57 69 6e | 64 6f 77 20 45 78 61 6d |Demo Win|dow Exam|
|000002d0| 70 6c 65 22 00 00 ca 84 | 20 23 57 41 5f 46 6c 61 |ple"....| #WA_Fla|
|000002e0| 67 73 20 2c 20 23 57 46 | 4c 47 5f 43 4c 4f 53 45 |gs , #WF|LG_CLOSE|
|000002f0| 47 41 44 47 45 54 20 7c | 20 23 57 46 4c 47 5f 44 |GADGET || #WFLG_D|
|00000300| 45 50 54 48 47 41 44 47 | 45 54 20 7c 20 23 57 46 |EPTHGADG|ET | #WF|
|00000310| 4c 47 5f 44 52 41 47 42 | 41 52 00 20 20 20 20 20 |LG_DRAGB|AR.     |
|00000320| 20 ca 83 20 23 57 41 5f | 49 44 43 4d 50 20 2c 20 | .. #WA_|IDCMP , |
|00000330| 23 49 44 43 4d 50 5f 43 | 4c 4f 53 45 57 49 4e 44 |#IDCMP_C|LOSEWIND|
|00000340| 4f 57 00 20 20 20 20 20 | 20 ca 83 20 23 57 41 5f |OW.     | .. #WA_|
|00000350| 54 69 74 6c 65 20 2c 20 | 26 54 69 74 6c 65 00 80 |Title , |&Title..|
|00000360| 0b 20 d4 01 28 30 2c 20 | 31 30 2c 20 38 30 2c 20 |. ..(0, |10, 80, |
|00000370| 32 30 30 2c 20 31 35 30 | 2c 20 54 61 67 4c 69 73 |200, 150|, TagLis|
|00000380| 74 29 20 20 20 3b 20 49 | 66 20 6f 75 72 20 77 69 |t)   ; I|f our wi|
|00000390| 6e 64 6f 77 20 69 73 20 | 6f 70 65 6e 65 64 2e 2e |ndow is |opened..|
|000003a0| 2e 00 00 20 20 48 20 3d | 20 d4 06 20 3b 20 47 65 |...  H =| .. ; Ge|
|000003b0| 74 20 73 6f 6d 65 20 77 | 69 6e 64 6f 77 20 69 6e |t some w|indow in|
|000003c0| 66 6f 72 6d 61 74 69 6f | 6e 73 00 20 20 57 20 3d |formatio|ns.  W =|
|000003d0| 20 d4 05 20 20 3b 00 20 | 20 58 20 3d 20 d4 07 20 | ..  ;. | X = .. |
|000003e0| 20 20 20 20 20 3b 00 20 | 20 59 20 3d 20 d4 08 20 |     ;. | Y = .. |
|000003f0| 20 20 20 20 20 3b 00 00 | 20 20 de 09 20 d4 0b 00 |     ;..|  .. ...|
|00000400| 00 20 20 3b 20 43 68 61 | 6e 67 65 20 74 68 65 20 |.  ; Cha|nge the |
|00000410| 64 65 66 61 75 6c 74 20 | 63 6f 6c 6f 75 72 00 20 |default |colour. |
|00000420| 20 3b 00 20 20 de 06 20 | 32 00 00 20 20 3b 20 44 | ;.  .. |2..  ; D|
|00000430| 72 61 77 20 6f 6e 65 20 | 70 6c 6f 74 2e 20 54 68 |raw one |plot. Th|
|00000440| 65 20 64 65 66 61 75 6c | 74 20 63 6f 6c 6f 75 72 |e defaul|t colour|
|00000450| 20 69 73 20 75 73 65 64 | 2e 00 20 20 3b 00 20 20 | is used|..  ;.  |
|00000460| de 02 20 31 30 2c 20 32 | 30 00 00 20 20 3b 20 41 |.. 10, 2|0..  ; A|
|00000470| 20 6c 69 74 74 6c 65 20 | 62 6f 78 2c 20 63 6f 6c | little |box, col|
|00000480| 6f 75 72 20 33 20 77 69 | 6c 6c 20 62 65 20 75 73 |our 3 wi|ll be us|
|00000490| 65 64 2e 00 20 20 3b 00 | 20 20 de 06 20 33 00 20 |ed..  ;.|  .. 3. |
|000004a0| 20 de 01 20 32 30 2c 33 | 30 2c 33 30 2c 34 30 00 | .. 20,3|0,30,40.|
|000004b0| 00 20 20 3b 20 43 68 61 | 6e 67 65 20 74 68 65 20 |.  ; Cha|nge the |
|000004c0| 74 65 78 74 20 63 75 72 | 73 6f 72 20 70 6f 73 69 |text cur|sor posi|
|000004d0| 74 69 6f 6e 00 20 20 3b | 00 20 20 de 0c 20 32 30 |tion.  ;|.  .. 20|
|000004e0| 2c 38 30 00 00 20 20 3b | 20 50 72 69 6e 74 20 22 |,80..  ;| Print "|
|000004f0| 48 65 6c 6c 6f 20 21 22 | 20 61 74 20 63 6f 6f 72 |Hello !"| at coor|
|00000500| 64 69 6e 61 74 65 73 20 | 32 30 2c 38 30 20 77 69 |dinates |20,80 wi|
|00000510| 74 68 20 63 6f 6c 6f 75 | 72 20 31 00 20 20 3b 00 |th colou|r 1.  ;.|
|00000520| 20 20 de 06 20 31 00 20 | 20 de 0d 20 20 22 48 65 |  .. 1. | ..  "He|
|00000530| 6c 6c 6f 20 21 22 00 00 | 20 20 3b 20 50 72 69 6e |llo !"..|  ; Prin|
|00000540| 74 20 77 69 6e 64 6f 77 | 20 73 74 61 74 65 20 6f |t window| state o|
|00000550| 6e 20 74 68 65 20 43 4c | 49 20 6f 75 74 70 75 74 |n the CL|I output|
|00000560| 00 20 20 3b 00 20 20 dd | 82 20 22 48 65 69 67 68 |.  ;.  .|. "Heigh|
|00000570| 74 3a 22 2c 20 48 2c 20 | 22 20 57 69 64 74 68 3a |t:", H, |" Width:|
|00000580| 22 2c 20 57 2c 20 22 20 | 58 20 70 6f 73 69 74 69 |", W, " |X positi|
|00000590| 6f 6e 3a 22 2c 20 58 2c | 20 22 20 59 20 50 6f 73 |on:", X,| " Y Pos|
|000005a0| 69 74 69 6f 6e 3a 22 2c | 20 59 00 00 20 20 3b 20 |ition:",| Y..  ; |
|000005b0| 57 61 69 74 20 66 6f 72 | 20 74 68 65 20 75 73 65 |Wait for| the use|
|000005c0| 72 20 70 72 65 73 73 20 | 74 68 65 20 63 6c 6f 73 |r press |the clos|
|000005d0| 65 20 67 61 64 67 65 74 | 00 20 20 3b 00 20 20 80 |e gadget|.  ;.  .|
|000005e0| bb 00 20 20 20 20 49 44 | 43 4d 50 2e 6c 20 3d 20 |..    ID|CMP.l = |
|000005f0| d4 04 00 20 20 80 bc 20 | 49 44 43 4d 50 20 3d 20 |...  .. |IDCMP = |
|00000600| 23 49 44 43 4d 50 5f 43 | 4c 4f 53 45 57 49 4e 44 |#IDCMP_C|LOSEWIND|
|00000610| 4f 57 00 00 80 c0 00 00 | 80 02 00                |OW......|...     |
+--------+-------------------------+-------------------------+--------+--------+